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MTHSBITOPS ROUTINES FOR BIT OPERATIONS 16-SEP-1984 01:05: AX/VMS Macro V04-00 Page 1 | 
O08 6-SEP=1 1984 i 93: 9 MTHRTL.SRCIJMTHBITOPS.MAR; 1 . (1) 
- TITLE Wi waR] yOrs ROUTINES FOR ory OPERATIONS 
IDENT /1+005/ ; File: MTHBITOPS.MAR Edit: JAW1005 


PAAARARARAARRRLALLASAAALELESALESE ESAS EEE E REESE ETE SESS ESSE CES ECC ESSE E Caer ae Y 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OOOoooccoo 


| 
ae 
0 5 ; 
e * 
0 6 § 3* * 
000 8 3* * 
000 3* * 
000 10 ;* * 
000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
$8 \ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0 135 ;* INCLUSION OF THE ABOVE coryni on NOTICE. THIS SOFTWARE OR ANY OTHER * 
44 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bo08 1g 3* TRANSFERRED. * 
7* ® 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AN SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8888 ? 3 CORPORATION. . 
7* ® 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
44464 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
5 % 
0000 25 :* * 
444 2 j Seeesocncaceserseneenaenecosenananseseneenenagnnesonsenseneseseesenessesesese 
0 3 
0000 8; 
44 $3 i, s FACILITY: MATH LIBRARY 
0000 0 he 
0000 31: ABSTRACT: 
0000 3 3 : This module contains routines for operations on individual 
0000 3 : bits of arguments. 
0000 34 : 
0000 33 3 
0000 36 —~ 
0000 ¢ : 
0000 8 ; VERSION: 0 
0000 39 ; 
0000 40 : HISTORY: 
0000 41; 
B88 g 3 ; AUTHOR: 
B28 a7 3 : Jonathan M. Taylor, 14-JUL-77: Version 0 
itd 45 : MODIFIED BY: 
0000 46 ; 
0000 47 : 
0000 48 ; 
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MTHSBITOPS ROUTINES FOR BIT OPERATIONS 16-SEP-1984 01:05: AX/VMS Macro v04-00 Page 
aah 3 HISTORY ; Detailed Current Edit History ayes 91 593:89 UMTHRTL. SREINTHBI TOPS MAR: 1 . 3) 
-SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 0 of MTHS$BITOPS 


| 
| 
1 = Update ig puaper nd c right notice. _The last 
12863 = Kegeke.version number and copyright. a1 DEC-78 | 
edit. n A for v i on was ; 3 16=-NOV-78 
1-007 = Fix MTH ITAND, MTHSJIAND. re i-2 43 SBL 8-Aug-1979 
1- - Add routin : ener’ ace tional fynct tons defined in 
MIL=-STD 17 THSIMVBITS, MTHSJMVBITS, 
MTHSLIBITS, MTH Syteits. MATH HSI ISHETe. ATHSJISHFTC, MTH$BITEST, | 
yt eae st aust ieser. MTHSJIBSET, MTHSIIBCLR, MTHSJIBCLR. 
a - 
1-005 = Remove con’ aut lol added in edit 1-004 and place them in 
FORSBITOPS as FORS routines. JAW 06-Jun-198 
| 
| 
| 
| 
| 
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MTHSBITOPS ROUTINES FOR BIT OPERATIONS 16-SEP-1984 01:05:2 AX/VMS M 
Mr b08 DECLARATIONS att yi 01 98:84 MTHRTL. SA 

09 e3 ~SBTTL DECLARATIONS 

3 $3 ; INCLUDE FILES: 

71; oerr.mar 

00 ue : 

209 r : EXTERNAL SYMBOLS 

000 76; NONE 

44 oe : 

833 

000 0 3; MACROS: 
0000 1% NONE 

0000 Ht 3 
0000 8 
0000 Se 3 
0000 5 ; PSECT DECLARATIONS: 
00000000 86 -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 

0000 87 
0000 88 ; 
0000 89 ; EQUATED SYMBOLS: 
0000 90 ; NONE 
0000 91; 
0000 


; OWN STORAGE: 
NONE 


cro V04-00 


Page 
CIM THBITOPS.MAR; 1 ° 3) 
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o V04-00 
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1 MTHRTL. 


~SBTTL MTHSIIAND 


++ 
FUNCTIONAL DESCRIPTION: 
Return the bitwise AND of two one-word arguments. 


CALLING SEQUENCE: 
Bitwise_AND.ww.v = MTHSIIAND (argl.rw.r, arg2.rw.r) 


INPUT PARAMETERS: 
Both arguments are one-word values and are call-by-reference. 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 
-ENTRY MTHSIIAND “M<> 


MCOMW 8 a4(A 


P), R ; RO = complemented first arg 
Biyws RO, @B(AP), RO ; RO 


ANDed args 


r - 
CIMTHBITOPS.MAR; 1 
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MTH$BITOPS ROUTINES FOR BIT OPERATIONS 16-SEP-19 5:22 VAX/VMS 0 V04-00 Page | mT 
A tbO8 MTHSJIAND b-SEP= 1986 9 93; £9 UMTHRTL.S te SRCIMTHB BITOPS.MAR;1 ay ™ 
Bey $ .SBTTL MTHSJIAND 
Cee 
a. 5 p++ 
..i% ; FUNCTIONAL DESCRIPTION: 
: 179 : Return the bitwise AND of two longword arguments. 
C 14 ; 
OOC 143 ; CALLING SEQUENCE: 
OOC 144 ; Bitwise_AND.wl.v = MTHSJIAND (argi.rl.r, arg2.rl.r) 
0O0C 145; 
00C 128 : 
Bade 147 ; 
C 148 ; INPUT PARAMETERS: 
445 133 : The two parameters are longword values and are call-by-reference. 
O00C 151; 
BRR e 13 : IMPLICIT INPUTS: 
00c 153; NONE 
QO0OC 154; 
000C 155 ; OUTPUT PARAMETERS: 
OOOC 156; NONE 
000C 157; 
000Cc 158; 
O00C 159; 
000C 160; 
000C 161 ; COMPLETION CODES: 
000C 16¢ ? NONE 
000c 163; 
000C 164 ; SIDE EFFECTS: 
000C 165 ; NONE 
4 166 ; 
00OC 167 ;-- 
QOOC 168 
Q000C 169 
0000 000C 170 ENTRY tig ie “M<> 
50 04 aC D2 O00E 177 MCOM RO ; RO = complemented first arg 
50 08 BC 0 cB Bois 76 BICL +h MBatar), RO ; RO = ANDed args 
04 001 17 RET 


IMPLICIT OUTPUTS: 
NONE 

| 

| 

| 

| 


FOR BIT OPERATIONS 


D 14 


— 
ao 
iar 
mum 
mn 
vtT 
te 
——- 
0.0 
coo 
ee 
-2 
— 
moO 
On 
Sn 


: ; AX/VMS Macro V04-00 
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-SBTTL MTHSIIOR 


FUNCTIONAL DESCRIPTION: 
Return the bitwise inclusive OR of two one-word arguments. 


; ; CALLING SEQUENCE : 


SVs DIY 


‘G9 Cd Cd Cd C9 CO. CD CD CO CD CD CD COC COCDODCD 


Bitwise inclusive -OR.ww.v = MTHSIIOR (argi.rw.r, arg2.rw.r) 


INPUT PARAMETERS: 
; The two parameters are one-word values and are call-by-reference. 


IMPLICIT INPUTS: 
; NONE 
; : OUTPUT PARAMETERS: 
; NONE 
; IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


; SIDE EFFECTS: 
NONE 


PRIPIPININININPINPYINPININIA) 8 nt nk rk nr kk ks a tt a 
= [DOO DOWGDOO0OO0OO0O00 00000009 000000 0900 000000 SIN 
AOOONAOU EWN O ODNAUES WR 0 OO NAUES WN -OOONOuM 


© } 090900 09 00 Cd Gd 00 00 09 CD CD CD CP CD CD CD: 


-ENTRY MTHSIIOR, “M<> 
ar W3 @4(AP), a8(AP), RO ; RO = ORed args 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


ENTRY MTHSJIOR, “M<> 
SL> @4(AP), @8(AP), RO ; RO = ORed args 


MTHSBITOPS ROUTINES FOR BIT OPERATIONS a a hs 4 01:03:86 (tg Macro V04-00 Page 
1-005 MTHSJIOR 6-SEP=1984 11:20:41 (CMTHRTL.SRCIMTHBITOPS.MAR; 1 
0 ! 13 -SBTTL MTHSJIOR 
p 1 15 344 
1 16 ; FUNCTIONAL DESCRIPTION: 
8 ! + : Return the bitwise inclusive OR of two longword arguments. 
09 1 19 ; 
021 0 ; CALLING SEQUENCE: 
8 : 13 Bitwise_inclusive_OR.wl.v = MTHSJIOR (argi.rl.r, arg2.rl.r) 
00 ! $ 3 
88 1 5 ; INPUT PARAMETERS: 
8 ! § 8 : The two parameters are longword values and are call-by-reference. 
0021 8: 
0021 9 ; IMPLICIT INPUTS: 
0021 QO: NONE 
0021 31; 
0021 3 3; OUTPUT PARAMETERS: 
0021 33 3 NONE 
0021 234; 
0021 35 ; IMPLICIT OUTPUTS: 
0021 6; NONE 
0021 73: 
itd S 3 
0021 9; 
0021 0; 
: 13 
1 $28: 
1 4; 
1 5 
1 6 
1 7 
3 8 
9 ] 
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00 
50 08 BC 04 8C C9 Bl 
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~SBTTL MTHSIIEOR 


p++ 
; FUNCTIONAL DESCRIPTION: 
: Return the bitwise XOR of two one-word arguments. 


; CALLING SEQUENCE: 
; Bitwise_exclusive_CR.ww.v = MTHSIIEOR (argl.rw.r, arg2.rw.r) 


; INPUT A canbe 


e two parameters are one-word values and are call-by-reference. 

; IMPLICIT INPUTS: 

: NONE 

; OUTPUT PARAMETERS: 

; NONE 

; IMPLICIT OUTPUTS: 

: NONE 

; COMPLETION CODES: 
NONE 

; SIDE EFFECTS: 

; NONE 


0000 .ENTRY MTHSIIEOR aM<> 
04 BC AD KORWS a4(AP), a&(AP), RO ; RO = XORed args 


50 3=— 08 ~BC 
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00000009 09 09 09 09 SI NI NI NSIS SNIP AAA AAA AA MMIII 
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M08 MTHSJIEOR B-SEP=19B6 11:00:41 EMT TL SAEIATHOI TODS MaR:1 22° (3) 
$8 -SBTTL MTHSJIEOR 
91 344 
35 ; FUNCTIONAL DESCRIPTION: 
+ 3 Return the bitwise XOR of two longword arguments. 
95 ; 
38 ; CALLING SEQUENCE: 
3 ; Bitwise_exclusive_or.wl.v = MTHSJIEOR (argi.rl.r, arg2.rl.r) 
0 99 ; 
38 9 ; 
0 1 ; INPUT PARAMETERS: 
8 ¢ r The two arguments are longword values and are call-by-reference. 
3 04 ; 
00 OS ; IMPLICIT INPUTS: 
003 06 $ NONE 
Oo3e 07 ; 
003 08 ; OUTPUT PARAMETERS: 
0033 09 ; NONE 
0033 10 ; 
0033 11 ; IMPLICIT OUTPUTS: 
0033 \§ 3 NONE 
0033 13 ; 
0033 14 ; COMPLETION CODES: 
0033 15 ; NONE 
0033 16 ; 
$033 17 ; SIDE EFFECTS: 
003 18 ; NONE 
0033 19 ; 
0033 20 3-- 
0033 321 
0033 355 
0000 0033 32 -ENTRY MTHSJIEOR “M<> 
50 08 BC 048C CD 0035 324 XORL3 @4(AP), @B(AP), RO ; RO = XORed args 
04 003B 325 RET 
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| 
LSBTTL MTHSINOT | 
| 


x 

na 
ee 
zz 
om 


pee 
; FUNCTIONAL DESCRIPTION: 
Return the bitwise NOT of a one-word argument. 


CALLING SEQUENCE: 
Bitwise_complement.ww.v = MTHSINOT (arg.rw.r) 


INPUT PARAMETERS: 
The one parameter is a one-word value and is call-by-reference. 


pepe fee Selo ololalololololo) 
OOooooooooooooooooo 
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PIAAAMAIOAAOAAIAOAAAIAAOAAAAAAAHAOHOAAOAOOAOAOOOO 
Se Se Be Ge Oe Be Oe Be Oe Se Be Se Se Se Oe Se Se Oe Se Se Be Se Oe Oe Se Se Se ee 


WN CO ODNOULS WN O ODNAUES WR OWOONAUES WN OOo~ 


4 

4 
0 4 
0 4 IMPLICIT INPUTS: 
0 4 NONE 
ons & 
00 4 OUTPUT PARAMETERS: 
003 4 NONE 
003 4 
003 4 IMPLICIT OUTPUTS: 
003 5 NONE 
003 5 
003 5 COMPLETION CODES: 
003 5 NONE 
003 5 
003 5 SIDE EFFECTS: 
003 5 NONE 
003 5 
003 58 :-- 
003 5 
003 6 
003 6 -ENTRY MTHSINOT, “M<> 
003 6 MCOMW a@4(AP), RO ; RO = complemented arg 
004 36 RET 
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1-005 MTHSJNOT ae y y 9:98:84 EMTHRTL. SREIMTHBITOPS MAR: 1 - dp 
4 65 -SBTTL MTHSJNOT 
8 96 
04 67 ;++ 
Be rt: ; FUNCTIONAL DESCRIPTION: 
be $° 3 Return the bitwise NOT of a longword argument. 
04 1 3 
Boe ie 3; CALLING SEQUENCE: 
04 73; Bitwise_complement.wl.v=MTHSJNOT (arg.rl.r) 
004 74; 
004 fo 3 
D043 379 : 
4 77 ; INPUT PARAMETERS: 
Bae ee ; The one parameter is a longword value and is call-by-reference. 
Bee 80 ; 
04 81 ; IMPLICIT INPUTS: 
004 Hf 3 NONE 
004 83 ; 
004 84 ; OUTPUT PARAMETERS: 
004 oo 3 NONE 
004 86 ; 
004 87 ; IMPLICIT OUTPUTS: 
004 88 ; NONE 
004 89 ; 
004 90 ; COMPLETION CODES: 
ones 91 ; NONE 
004 92: 
00463 393 ; SIDE EFFECTS: 
0043 94 ; NONE 
0043 -o 8 
0043 96 ;-- 
0043 97 
0043 98 
000 0043 99 -ENTRY MTHSJNOT, “M<> 
50 04 BC D2 0045 400 MCOML @4(AP), RO ; RO = complemented arg 
04 0049 401 RET 


nts — 
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1-005 MTHSIISHFT 6-SEP- 1986 9 (3 ef LATMRTL L.S SATHBITOPS.MAR: 1 . 3) 

4A 8403 -SBTTL MTHSIISHFT 
4A 4046 
4A 405 3+¢ 
4A & g: ; FUNCTIONAL DESCRIPTION: 
Ree 208 : Return the result of shifting arg! by arg2 places. 
O4A 410 : ; CALLING SEQUENCE: 
nee ti) : Bitwise_shift.ww.v = MTHSIISHFT (argl.rwu.r, shiftcount.rw.r) 
4A 218 : 
4A 414 ; 
4A 415 ; INPUT PARAMETERS: 

Open ret 3 Both arguments are one-word values and are call-by-reference. 

004A 418; 

Q04A 419 ; IMPLICIT INPUTS: 

0044 420; NONE 

004A 421 : 

004A 4 ¢ 3; OUTPUT PARAMETERS: 

004A 423; NONE 

004A 424; 

OC4A 425 : IMPLICIT OUTPUTS: 

004A 426; NONE 

004A 427 ; 

004A 428 ; COMPLETION CODES: 

004A 429 : NONE 

004A 430; 

004A 431 : SIDE EFFECTS: 

004A $36 : : NONE 

004A 433; 

004A 434 ;-- 

004A 435 

004A 436 

0 004A 437 ENTRY MTHSIISHFT, “M<> 
50 404 BC 3C 004C 438 MOVZWL @4(AP), RO ; RO = zero-extended arg 
50 50 08 BC 7 8038 rhe ~ @8(AP), RO, RO ; so right shift brings in zeroes 
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-SBTTL MTHSJISHFT 

++ 

FUNCTIONAL DESCRIPTION: 

urn the result of shifting arg! by arg2 places 


Ret 
CALLING SEQUENCE: 
Bitwise-shift.wl.v = MTHSJISHFT (argl.rlu.r, shiftcount.rl.r) 


INPUT PARAMETERS: 
Both arguments are longword values and are call-by-references. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


FAM COD AAAAAAAAAAAAA AAA AAA AAA AAA AAAA AAAS 
Te Te Te Te Tere rTe rere rere rererererererererere re rere rarer 


SINS NNSA A AAA AAAAA MMIII 
WDNAUE WN OS OONAULE WHO ODONAUES WN OC OOONOAUI SE Win 


Foy SY Yt oP ot ot oP ot oe ee 


«ENTRY MTHSJISHFT, “M<> 
arg to shift 


MOVL a4(AP), RO ; RO 
R1 : R1 = 0 so right shift brings in zeroes 
ASHQ @8(AP), RO, RO ; shift RO by arg2 bits 


MTHRTL.SRCIJMTHBITOPS.MAR; 1 


MTHSBITOPS ROUTINES FOR BIT OPERATIONS os tat 9 91:03:44 my cro V04-00 Page 
Symbol table 6-SEP-1984 11:20:41 MTHRTL.SR CoM MTHBITOPS.MAR; 1 ( 
MTH$1 1 AND 0000000 RG 01 
MTHSIIEOR i444 A RG 1 
MTHSLIOR 000 5 8 RG 1 
MTHSIISHFT Q00004A RG 1 
SINOT et RG 01 
MTH$J1AND 00000 f RG 01 
MTHSJIEOR 00000033 RG 01 
MTHSJIOR sisi 1 RG 01 
MTHSJISHFT 00000 g RG 01 
MTHSJNOT 00000043 RG 01 
aa nae moO memo oe ae + 
! ; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL , NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 00000064 (¢ 100.) 01 ¢ 1.) PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
ee 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 37 00:00:00.06 00:00:01.93 
commend processing 138 00:00:00.49 00:00:02.89 
76 00:00:00.77 00:00:04.10 
Symbol table sort 0 00:00:00.00 00:00:00.00 
s 2 83 00:00:00.86 00:00:04.34 
Suabol table output 2 00:00:00.01 00:00:00.02 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 0 bs 4 00:00:00.00 
Assembler run totals 340 00:00:02.21 00:00:13.29 


The working set Limit was 750 pages. 

4700 bytes (10 pages) of virtual memory were used to buffer the intermediate cod 

There were 10 pages of symbol table space an ecaies to hold 10 non-local and 0 feral symbols. 
479 source Lines were read in Pass 1, produci "S object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


woewoeeeeeoeoooeoeoeeooeon} 


Macro Library name Macros defined 
“$255$DUAZB:(SYSLIBJSTARLET.MLB:20 0 ( (iti(‘(C;r”t*”*~™” 0 
O GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHBITOPS/OBJ=OBJ$:MTHBITOPS MSRC$:MTHBI TOPS/UPDATE=(ENHS:MTHBITOPS) 
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